﻿Module MoneyMoudle
    Public Sub UpdateCrashOptime(ByVal ct As Wys.Db.Vb.CTable, ByVal id As String)
        Dim strSql As String = ""
        strSql = "Update CrashStatus set OPTIME= ? where  ID =?"
        Dim cmd As New ADODB.Command
        cmd.CommandText = strSql
        Dim pa As ADODB.Parameter = cmd.CreateParameter(, ADODB.DataTypeEnum.adDBTimeStamp, ADODB.ParameterDirectionEnum.adParamInput, 100)
        pa.Value = Now.ToString
        cmd.Parameters.Append(pa)

        pa = cmd.CreateParameter(, ADODB.DataTypeEnum.adChar, ADODB.ParameterDirectionEnum.adParamInput, 36)
        pa.Value = id
        cmd.Parameters.Append(pa)

        ct.ExcCommand(cmd)
    End Sub
End Module
